﻿
Public Class character
    Protected value As Char

    Public Overrides Function ToString() As String
        Return value.ToString()
    End Function

    Public Shared Widening Operator CType(ByVal this As Char) As character
        Dim rtn As character = Nothing
        rtn = New character()
        rtn.value = this

        Return rtn
    End Operator

    Public Shared Widening Operator CType(ByVal this As character) As Char
        Return this.value
    End Operator
End Class
